% wrappedPhase = AKwrap(unwrappedPhase)
%
% Does the opposite of unwrap. Works on vectors, and matrixes of any size.
% See AKsweepFD.m for usage
%
% Andre Giese, Audio Communication Group, TU Berlin

% AKtools
% Copyright (C) 2016 Audio Communication Group, Technical University Berlin
% Licensed under the EUPL, Version 1.1 or as soon they will be approved by
% the European Commission - subsequent versions of the EUPL (the "License")
% You may not use this work except in compliance with the License.
% You may obtain a copy of the License at: 
% http://joinup.ec.europa.eu/software/page/eupl
% Unless required by applicable law or agreed to in writing, software 
% distributed under the License is distributed on an "AS IS" basis, 
% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
% See the License for the specific language governing  permissions and
% limitations under the License. 
function wrappedPhase = AKwrap(unwrappedPhase)

a=  unwrappedPhase;
b=  a/(2*pi);
c=  round(b);
d=  c*2*pi;
e=  d-a;
e=  -e;

wrappedPhase=e;